home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASWIZ20 / KEYBOARD.PAS < prev    next >
Pascal/Delphi Source File  |  1994-11-04  |  2KB  |  99 lines
  1. {   +----------------------------------------------------------------------+
  2.     |                                                                      |
  3.     |        PasWiz  Copyright (c) 1990-1994  Thomas G. Hanlin III         |
  4.     |                                                                      |
  5.     +----------------------------------------------------------------------+
  6.  
  7.  
  8.  
  9. Keyboard:
  10.  
  11.    This unit allows you to control the keyboard and to read various
  12.    information from it.
  13.  
  14. }
  15.  
  16.  
  17.  
  18. UNIT Keyboard;
  19.  
  20.  
  21.  
  22. INTERFACE
  23.  
  24.  
  25.  
  26.    FUNCTION AltPress: Boolean;
  27.    FUNCTION CapsOn: Boolean;
  28.    FUNCTION CtrlPress: Boolean;
  29.    FUNCTION InsertOn: Boolean;
  30.    FUNCTION LAltPress: Boolean;
  31.    FUNCTION LCtrlPress: Boolean;
  32.    FUNCTION LShiftPress: Boolean;
  33.    FUNCTION NumOn: Boolean;
  34.    FUNCTION RAltPress: Boolean;
  35.    FUNCTION RCtrlPress: Boolean;
  36.    FUNCTION RShiftPress: Boolean;
  37.    FUNCTION ScrollOn: Boolean;
  38.    FUNCTION ShiftPress: Boolean;
  39.  
  40.    PROCEDURE ClearKbd;
  41.    PROCEDURE PrintScreen;
  42.    PROCEDURE SetCaps (CapsLock: Boolean);
  43.    PROCEDURE SetEnhKbd (Enhanced: Boolean);
  44.    PROCEDURE SetInsert (Ins: Boolean);
  45.    PROCEDURE SetNum (NumLock: Boolean);
  46.    PROCEDURE SetPrtSc (PrtScOn: Boolean);
  47.    PROCEDURE SetScroll (ScrollLock: Boolean);
  48.    PROCEDURE SpeedKey (RepDelay, RepRate: Integer);
  49.    PROCEDURE TypeIn (Keys: String);
  50.  
  51.  
  52.  
  53. { --------------------------------------------------------------------------- }
  54.  
  55.  
  56.  
  57. IMPLEMENTATION
  58.  
  59.  
  60.  
  61. {$F+}
  62.  
  63. { the routines are actually in assembly language }
  64.  
  65.    FUNCTION AltPress; external;
  66.    FUNCTION CapsOn; external;
  67.    FUNCTION CtrlPress; external;
  68.    FUNCTION InsertOn; external;
  69.    FUNCTION LAltPress; external;
  70.    FUNCTION LCtrlPress; external;
  71.    FUNCTION LShiftPress; external;
  72.    FUNCTION NumOn; external;
  73.    FUNCTION RAltPress; external;
  74.    FUNCTION RCtrlPress; external;
  75.    FUNCTION RShiftPress; external;
  76.    FUNCTION ScrollOn; external;
  77.    FUNCTION ShiftPress; external;
  78.  
  79.    PROCEDURE ClearKbd; external;
  80.    PROCEDURE PrintScreen; external;
  81.    PROCEDURE SetCaps; external;
  82.    PROCEDURE SetEnhKbd; external;
  83.    PROCEDURE SetInsert; external;
  84.    PROCEDURE SetNum; external;
  85.    PROCEDURE SetPrtSc; external;
  86.    PROCEDURE SetScroll; external;
  87.    PROCEDURE SpeedKey; external;
  88.    PROCEDURE TypeIn; external;
  89.  
  90.  
  91.  
  92. {$L KBD}
  93.  
  94.  
  95.  
  96. { ----------------------- initialization code --------------------------- }
  97. BEGIN
  98. END.
  99.